Aminet 1

home *** CD-ROM | disk | FTP | other *** search

/ Aminet 1 / Aminet - June 1993 [Walnut Creek].iso / usenet / sources / volume91 / midi / casio / part01

Wrap

Internet Message Format | 1991-03-28 | 60.4 KB

Path: news.larc.nasa.gov!amiga-request From: amiga-request@ab20.larc.nasa.gov (Amiga Sources/Binaries Moderator) Subject: v91i076: CASIO - download 16-bit samples from a Casio FZ-1 to an Amiga, Part01/01 Reply-To: karl@sugar.hackercorp.com (Karl Lehenbauer) Newsgroups: comp.sources.amiga Message-ID: <comp.sources.amiga:v91i076@ab20.larc.nasa.gov> Date: 28 Mar 91 16:19:54 GMT Approved: tadguy@uunet.UU.NET (Tad Guy) X-Mail-Submissions-To: amiga@uunet.uu.net X-Post-Discussions-To: comp.sys.amiga.misc Submitted-by: karl@sugar.hackercorp.com (Karl Lehenbauer) Posting-number: Volume 91, Issue 076 Archive-name: midi/casio/part01 [ includes uuencoded executables ...tad ] Here is my program to download 16-bit samples from a Casio FZ-1 to an Amiga. You'll need Bill Barton's MIDI library, version 2, to make it work. Also to do much useful with it, you'll need a Casio FZ-1 (the kicker), and FZIFF, a companion program (simultaneously posted) to downconvert the 16-bit samples to the 8-bit Amiga IFF 8SVX format. Audiomaster, or equivalent, is also required to do some tweaking, see the README in the FZIFF kit for details. These requirements limit the potential audience of the program a good deal of course, but the people that do have the necessary prerequisites will be able to create Amiga sounds of unparalleled quality. #!/bin/sh # This is a shell archive. Remove anything before this line, then unpack # it by saving it into a file and typing "sh file". To overwrite existing # files, type "sh file -c". You can also feed this as standard input via # unshar, or by typing "sh <file", e.g.. If this archive is complete, you # will see the following message at the end: # "End of archive 1 (of 1)." # Contents: Makefile README casio.c casio.h casio.uu cleanup.c # dumpvoice.c fz1.h hilo.c hilo.uu prototypes.h timer.c # Wrapped by tadguy@ab20 on Thu Mar 28 11:19:52 1991 PATH=/bin:/usr/bin:/usr/ucb ; export PATH if test -f 'Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Makefile'\" else echo shar: Extracting \"'Makefile'\" $205 characters$ sed "s/^X//" >'Makefile' <<'END_OF_FILE' Xall: casio hilo X XOFILES= casio.o timer.o X XCFLAGS= -bs X XSDBFLAGS= -g X Xcasio: $(OFILES) X ln $(SDBFLAGS) $(OFILES) -lhack -lc X Xdebug: X cc -n casio.c X ln +q -g casio.o -lmidi -lc X Xhilo: hilo.o X ln hilo.o -lc END_OF_FILE if test 205 -ne `wc -c <'Makefile'`; then echo shar: \"'Makefile'\" unpacked with wrong size! fi # end of 'Makefile' fi if test -f 'README' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'README'\" else echo shar: Extracting \"'README'\" $3066 characters$ sed "s/^X//" >'README' <<'END_OF_FILE' XHere is CASIO, a primitive program to download 16-bit voices from the XCasio FZ-1 synthesizer to the Amiga computer. X XThis program only has a limited audience, but for those who have an XFZ-1 and want the ultimate in sample quality on the Amiga, it will Xbe a godsend. X XYou'll need Bill Barton's MIDI library, version 2.0. It's around, Xon Fred Fish disks, archive sites, etc. Contact me for it as a last Xresort. X XThe program includes the binary, CASIO, and the source code, plus a XMakefile for Aztec C 5.0 or later. X XTo use CASIO, get your Casio FZ-1 MIDI'ed up bidirectionally to the Amiga X(out-to-in and in-to-out, the Amiga needs a bidirectional link so it can Xack or nack the packets as it receives them) X XVerify the link with some other program that you know works. X XFinally, use the Casio front panel to select an output device of XMIDI, run CASIO with an argument being the filename you want Xwritten on the Amiga, as in "casio train_whistle", then select X"voice dump" on the Casio and hit "save". X XThe Casio firmware is sensitive to data errors at the wrong point in the Xprotocol, so if you get one, your Casio will hang and it will have Xto be power-cycled. Thus it's probably a good idea to save a killer Xvoice to disk on the Casio before trying to download it to the Amiga, Xjust in case. X XRemember that MIDI is pretty slow for samples, MIDI goes at 3000 bytes Xper sample, but the transfer format only sends 4 bits per byte, plus Xthere are delays for acks, so for example a 100 Kbyte sample would Xtake at least a couple of minutes to transfer. You should see the Xsame indication on the Casio you see when it is saving to disk (a moving Xblip), but it will move much, much slower when going to MIDI. X XTo convert the raw 16-bit data of the Casio FZ-1 over to the Amiga XIFF 8SVX sample format, use my FZIFF program, a companion release. X XNote that the Amiga cannot play back a sample faster than around X25,000 samples per second. This pretty much dictates that you use Xthe 18K sample rate on the Casio when sampling for the Amiga. X XMy recently posted SMUS player is particularly useful with Xthese samples, because you can create multisampled instruments that Xdo not suffer from the one-sample-per-octave and each-sample-must-be- Xof-exactly-the-same-length problems that the IFF 8SVX. X XThe program HILO, which is included, simply traverses a sample file Xyou've received from your FZ-1 and prints the highest and lowest Xsample values found. The highest possible value is 32767 and the Xlowest is -32768. If you run it and the values aren't in this Xvicinity, you might want to resample at a higher volume. Of course Xif they're exactly those values or really really close, the voulme Xmight be too high, resulting in distortion. If it's just close, you Xusually won't notice -- let your ear be the judge. This distortion Xusually shows up as a sort of crackling sound when played back, or when Xplayed back on the Amiga. X XShare and Enjoy, X XKarl Lehenbauer X3918 Panorama XMissouri City, TX 77459 X XInternet/BITNET: karl@sugar.hackercorp.com XUsenet: uunet!sugar!karl X END_OF_FILE if test 3066 -ne `wc -c <'README'`; then echo shar: \"'README'\" unpacked with wrong size! fi # end of 'README' fi if test -f 'casio.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'casio.c'\" else echo shar: Extracting \"'casio.c'\" $10606 characters$ sed "s/^X//" >'casio.c' <<'END_OF_FILE' X/* casio - download sample data from a casio fz-1 */ X X/* Copyright (C) 1988 Hackercorp. All Rights Reserved */ X X#include <libraries/dos.h> X#include <clib/macros.h> X#include <midi/midi.h> X#include <functions.h> X#include <stdio.h> X#include <devices/timer.h> X X#include "casio.h" X#include "prototypes.h" X Xchar *program_name = "casio fz1 download program"; X X#define CheckMsg(m) (m->mp_MsgList.lh_Head->ln_Succ != 0) X Xextern struct timerequest *timer_request; X X/* message ids for fz-1 system exclusive messages */ X#define OPEN_MIDI_MSG 0x70 X#define CLOSE_MIDI_MSG 0x71 X#define OK_MIDI_MSG 0x72 X#define ERR_MIDI_MSG 0x73 X#define DATA_MIDI_MSG 0x74 X#define EFFECT_MIDI_MSG 0x76 X#define REMOTE_MIDI_MSG 0x7f X X/* additional messages I define as responses from its_an_fz1_message */ X#define NOT_A_FZ_MESSAGE 0 X#define NOT_THE_REQUESTED_FZ_CHANNEL 1 X#define DATA_ERROR 2 X X/* states for the i/o loop */ X#define WAITING_FOR_OPEN 0 X#define READING_FZ_DATA 1 X X#define MAX_RETRIES 10 X X#define CAPTURE_BUFFER_SIZE 16384 XUBYTE capture_buffer[CAPTURE_BUFFER_SIZE]; X Xvoid *MidiBase = NULL; Xvoid *IntuitionBase = NULL; X Xstruct MDest *dest = NULL; Xstruct MSource *source = NULL; X Xstruct MRoute *route_a = NULL; Xstruct MRoute *route_b = NULL; X XUBYTE *msg; /* buffer this in case we get shut down before freeing the current message */ X Xint capture_position = 0; X Xvoid midi_cleanup(void) X{ X /* if (msg) X FreeMidiMsg(msg); */ X X if (IntuitionBase) X CloseLibrary(IntuitionBase); X X if (dest) X DeleteMDest(dest); X if (source) X DeleteMSource(source); X X if (route_a) X DeleteMRoute(route_a); X if (route_b) X DeleteMRoute(route_b); X X if (MidiBase) X CloseLibrary(MidiBase); X} X X/* if channel is -1, any channel is ok (within FZ-1 System Exclusive message) */ X X/* validate the incoming message, including all sorts of stuff about the header X * and anything we know specifically within the message type as well */ X XUBYTE its_an_fz1_message(UBYTE *msg, int requested_channel) X{ X int channel, length, expected_length; X struct FZ1_Message *p; X X p = (struct FZ1_Message *)msg; X X /* compare first bytes of message, X extract channel number and verify, X return function code X */ X length = MidiMsgLength(msg); X X if ((p->casio_id != 0x44) || (p->fz1_id != 0x200) X || ((p->encoded_channel & 0xf0) != 0x70)) X return(NOT_A_FZ_MESSAGE); X X channel = (p->encoded_channel & 0x0f); X if ((requested_channel != -1) && (channel != requested_channel)) X return(NOT_THE_REQUESTED_FZ_CHANNEL); X X switch(p->command) X { X case OPEN_MIDI_MSG: X expected_length = 16; X break; X X case CLOSE_MIDI_MSG: X expected_length = 7; X break; X X case DATA_MIDI_MSG: X expected_length = 136; X if (length == expected_length && (p->body.datamsg.checksum != calc_checksum(p))) X { X fprintf(stderr,"checksum error, expected %x, saw %x\n", X p->body.datamsg.checksum,calc_checksum(p)); X return(DATA_ERROR); X } X break; X X /* haven't seen any of these yet */ X case OK_MIDI_MSG: X case ERR_MIDI_MSG: X case EFFECT_MIDI_MSG: X case REMOTE_MIDI_MSG: X panic("got a message I don't know how to handle"); X X /* it wasn't a message we understood yet it had all the makings of X * being one, it must be garbled */ X default: X return(DATA_ERROR); X } X if (length != expected_length) X return(DATA_ERROR); X X return(p->command); X} X Xvoid commune_with_fz1(struct MSource *source, struct MDest *dest, int channel, int outfd) X{ X long len; X UBYTE *ip; X int command, retry_count = 0; X int state = WAITING_FOR_OPEN; X ULONG waitflags; X int packets_received = 0, error_count = 0, done = 0; X struct FZ1_Message *p; X X /* wait for a message or control-C or "done" control var to be set */ X while ((!((waitflags = Wait(-1)) & SIGBREAKF_CTRL_C)) && !done) X { X /* if ((waitflags & SIGBREAKF_CTRL_D) && (state = READING_FZ_DATA)) X { X printf("saw a ^d\n"); X goto data_error; X } */ X X /* while there are messages to process, process messages */ X while (!done && (msg = GetMidiMsg(dest))) X { X /* discard all but system exclusive data - should be done X * by the route, check someday to see if we can find our X * route and change it if it isn't */ X if (*msg != MS_SYSEX) X goto message_done; X X p = (struct FZ1_Message *)msg; X command = its_an_fz1_message((UBYTE *)p,channel); X X if (state == WAITING_FOR_OPEN) X { X if (command != OPEN_MIDI_MSG) X panic("out of sync - looking for 'Open' from FZ1"); X X /* we need to specify a channel ID in our messages X * if we're not looking for a specific one, reply X * with the one we got in the first message */ X if (channel == -1) X channel = p->encoded_channel & 0x0f; X state = READING_FZ_DATA; X dump_open(p); X send_fz(source,channel,OK_MIDI_MSG); X goto message_done; X } X X if (state == READING_FZ_DATA) X { X abort_timeout_timer(); X switch(command) X { X case DATA_MIDI_MSG: X send_fz(source,channel,OK_MIDI_MSG); X start_timeout_timer(); X packets_received++; X if ((packets_received % 10) == 0) X { X printf("%4d ok \r",packets_received); X fflush(stdout); X } X capture(p,outfd); X retry_count = 0; X break; X X case DATA_ERROR: X data_error: X send_fz(source,channel,ERR_MIDI_MSG); X start_timeout_timer(); X printf("%4d err\r",packets_received); X fflush(stdout); X error_count++; X if (++retry_count > MAX_RETRIES) X panic("exceeded max retries for a packet - transfer failed"); X break; X X /* we get this when the fz is done */ X case CLOSE_MIDI_MSG: X fprintf(stderr,"casio is done\n"); X done = 1; X break; X X default: X fprintf(stderr,"unknown command = 0x%x\n",command); X if (state = READING_FZ_DATA) X { X fprintf(stderr,"will try treating it as a data error\n"); X goto data_error; X } X else X panic("unknown command and not in 'read' mode"); X } X goto message_done; X } X X panic("state variable fried"); X X message_done: FreeMidiMsg(msg); /* free it */ X } X X if (CheckMsg(timer_request->tr_node.io_Message.mn_ReplyPort) && X (GetMsg(timer_request->tr_node.io_Message.mn_ReplyPort)) ) X { X if (state == READING_FZ_DATA) X { X send_fz(source,channel,ERR_MIDI_MSG); X printf("%4d tmo\r",packets_received); X fflush(stdout); X error_count++; X if (++retry_count > MAX_RETRIES) X panic("exceeded max retries for a packet - transfer failed"); X } X } X } X if (capture_position != 0) X { X if (write(outfd,capture_buffer,capture_position) != capture_position) X perror("output file"); X } X printf("total packets received %d (%d retries)\n",packets_received,error_count); X} X Xvoid send_fz(struct MSource *source, int channel_id, int message_id) X{ X static UBYTE buf[] = {0xf0, 0x44, 0x02, 0x00, 0x70,0x00,0xf7}; X buf[4] |= channel_id; X buf[5] = message_id; X PutMidiMsg(source,buf); X} X Xint calc_checksum(struct FZ1_Message *p) X{ X UBYTE *ip, lownibble, hinibble; X int len, running_sum; X X /* I assume the message has already been validated as a Casio FZ-1 X * data message X */ X X ip = &p->body.datamsg.data[0]; X X for (len = 0, running_sum = 0; len < 128; len++) X { X running_sum += *ip++; X } X return((0 - running_sum) & 0x7f); X} X Xvoid capture(struct FZ1_Message *p, int outfd) X{ X UBYTE *ip, lownibble, hinibble; X int len; X X ip = &p->body.datamsg.data[0]; X X for (len = 0; len < 64; len++) X { X lownibble = *ip++; X hinibble = *ip++; X capture_buffer[capture_position++] = (hinibble << 4) | lownibble; X if (capture_position >= CAPTURE_BUFFER_SIZE) X { X if (write(outfd,capture_buffer,CAPTURE_BUFFER_SIZE) != CAPTURE_BUFFER_SIZE) X { X perror("output file"); X } X capture_position = 0; X } X } X} X Xstruct MRouteInfo myrouteinfo = X{ X MMF_SYSEX,0xffff,0,0,{0},{0} X}; X Xmain(int argc,char *argv[]) X{ X X char *sname, *dname, *filename; X int outfd; X int wanted_channel = -1; X X fprintf(stderr,"ready to talk to casio, the routes are done automatically from\n"); X fprintf(stderr,"midi_in if it's available, else MidiIn and to MidiOut.\n"); X fprintf(stderr,"I download and exit when done. I automatically do retries.\n"); X fprintf(stderr,"Nonetheless, I may 'hang' when uploading. This is soft.\n"); X fprintf(stderr,"Hit ^D to retry. Or hit ^C, I'll exit.\n"); X fprintf(stderr,"I write to the file on the fly (every 256 packets), so watch it.\n"); X if (argc != 2) X { X fprintf(stderr,"usage: casio filename, routes are automatic, then\n"); X fprintf(stderr," select FZ output device as 'midi' and do a voice save\n"); X exit(1); X } X X sname = "FZ1out"; X dname = "FZ1in"; X filename = argv[1]; X X if ((outfd = creat(filename,0666)) == -1) X { X fprintf(stderr,"couldn't create output file\n"); X perror(filename); X exit(2); X } X X if (!(IntuitionBase = OpenLibrary("intuition.library",0))) X { X fprintf(stderr,"can't open intuition.library\n"); X goto clean; X } X X add_cleanup(midi_cleanup); X X if (!(MidiBase = OpenLibrary(MIDINAME,MIDIVERSION))) X { X fprintf(stderr,"can't open midi.library\n"); X goto clean; X } X X /* create our public source node */ X if (!(source = CreateMSource(sname,NULL))) X { X fprintf(stderr,"can't create Source port %s\n",sname); X goto clean; X } X X /* create our dest node (public) */ X if (!(dest = CreateMDest(dname,NULL))) X { X fprintf(stderr,"can't create Dest port %s\n",dname); X goto clean; X } X X route_a = MRoutePublic("midi_in",dname,&myrouteinfo); X if (!route_a) X route_a = MRoutePublic("MidiIn",dname,&myrouteinfo); X X route_b = MRoutePublic(sname,"MidiOut",&myrouteinfo); X X init_timer(); X X commune_with_fz1(source,dest,wanted_channel,outfd); /* process until shutdown */ X Xclean: X close(outfd); X cleanup(); X exit(0); X} X Xvoid _abort(void) /* abort routine called when CTRL-C is hit (Aztec) */ X{ X /* fflush(stdout); cleanup(); exit(1); */ X} /* we're polling it in the loop */ X Xvoid dump_open(struct FZ1_Message *p) X{ X unsigned int nblocks; X X printf("dump of Open MIDI message received from Casio FZ-1\n"); X printf("channel %d, status %d, ",p->encoded_channel & 0x0f,p->body.openmsg.status); X printf("banks %d, voices %d, ",p->body.openmsg.banks,p->body.openmsg.voices); X X if(p->body.openmsg.status != 1 || p->body.openmsg.banks != 0 X || p->body.openmsg.voices != 1) X panic("I don't know how to do anything other than save a single voice"); X X nblocks = (p->body.openmsg.nblocks_hinibble << 12) X | (p->body.openmsg.nblocks_next_to_hinibble << 8) X | (p->body.openmsg.nblocks_next_to_lonibble << 4) X | p->body.openmsg.nblocks_lonibble; X printf("nblocks %d, ",nblocks); X printf("edit bank %d, edit voice %d\n",p->body.openmsg.edit_bank,p->body.openmsg.edit_voice); X} X X/* end of casio.c */ X END_OF_FILE if test 10606 -ne `wc -c <'casio.c'`; then echo shar: \"'casio.c'\" unpacked with wrong size! fi # end of 'casio.c' fi if test -f 'casio.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'casio.h'\" else echo shar: Extracting \"'casio.h'\" $561 characters$ sed "s/^X//" >'casio.h' <<'END_OF_FILE' X/* casio.h - casio fz1 midi include file */ X Xstruct FZ1_OpenMsg X{ X UBYTE status; X UBYTE banks; X UBYTE voices; X UBYTE nblocks_lonibble; X UBYTE nblocks_next_to_lonibble; X UBYTE nblocks_next_to_hinibble; X UBYTE nblocks_hinibble; X UBYTE edit_bank; X UBYTE edit_voice; X UBYTE eox; X}; X Xstruct FZ1_DataMsg X{ X UBYTE data[128]; X UBYTE checksum; X UBYTE eox; X}; X Xstruct FZ1_Message X{ X UBYTE sysex; X UBYTE casio_id; X short fz1_id; X UBYTE encoded_channel; X UBYTE command; X union { X struct FZ1_DataMsg datamsg; X struct FZ1_OpenMsg openmsg; X } body; X}; X X/* end of casio.h */ END_OF_FILE if test 561 -ne `wc -c <'casio.h'`; then echo shar: \"'casio.h'\" unpacked with wrong size! fi # end of 'casio.h' fi if test -f 'casio.uu' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'casio.uu'\" else echo shar: Extracting \"'casio.uu'\" $18036 characters$ sed "s/^X//" >'casio.uu' <<'END_OF_FILE' Xbegin 644 casio XM```#\P`````````#``````````(```N,```0[@````$```/I```+C$[Z%KYC3 XM87-I;R!F>C$@9&]W;FQO860@<')O9W)A;0``3E7__$CG``!*K(`*9P``%BM.P XM__PB;(`*+&R#4DZN_F(L;?_\2JR`#F<``!8K3O_\(&R`#BQL@`9.KO^^+&W_N XM_$JL@!)G```6*T[__"!L@!(L;(`&3J[_T"QM__Q*K(`69P``%BM.__P@;(`6O XM+&R`!DZN_Z8L;?_\2JR`&F<``!8K3O_\(&R`&BQL@`9.KO^F+&W__$JL@`9GP XM```6*T[__")L@`8L;(-23J[^8BQM__Q,WP``3EU.=4Y5_^Q(YP``*VT`"/_P@ XM*T[_["!M``@L;(`&3J[_=BQM_^PK0/_X(&W_\`PH`$0``68``"H@;?_P#&@"E XM```"9@``'"!M__!P`!`H``0"@````/`,@````'!G```,<`!,WP``3EU.=2!MC XM__!P`!`H``0"@`````\K0/_\#*W_____``QG```2("W__+"M``QG```&<`%@[ XMR"!M__!P`!`H``5@``"J*WP````0__1@``"R*WP````'__1@``"F*WP```"(- XM__0@+?_XL*W_]&8``$HO+?_P3KH%Q%A/(&W_\'(`$B@`AK"!9P``,"\M__!.) XMN@6J6$\O`"!M__!P`!`H`(8O`$AZ`'Q(;(&\3KH2#D_O`!!P`F``_TA@``!&\ XM2'H`ATZZ#TQ83W`"8`#_-/]&_U+_OO^^_U[_R/^^_\C_R/_(_\C_R/_(_\C_Y XMR/^^!$``<`Q``!!DT-!`,#L`TD[[```@+?_XL*W_]&<```AP`F``_NX@;?_P< XM<``0*``%8`#^X&-H96-K<W5M(&5R<F]R+"!E>'!E8W1E9"`E>"P@<V%W("5XW XM"@!G;W0@82!M97-S86=E($D@9&]N)W0@:VYO=R!H;W<@=&\@:&%N9&QE`$Y5^ XM_]1(YP``0JW_\$*M_^Q"K?_D0JW_X$*M_]PK3O_4</\L;(-23J[^PBQM_]0K? XM0/_H"```#&8``J)*K?_<9@`"FDJM_]QF``((*T[_U"!M``PL;(`&3J[_CBQM` XM_]0I0(-69P`!["!L@U8,$`#P9@`!R"ML@U;_V"\M`!`O+?_83KK]L%!/`H``% XM``#_*T#_]$JM_^QF``!B#*T```!P__1G```,2'H"?DZZ#?983PRM_____P`0/ XM9@``%B!M_]AP`!`H``0"@`````\K0``0*WP````!_^PO+?_83KH*$EA/2'@`I XM<B\M`!`O+0`(3KH#H$_O``Q@``%"#*T````!_^QF``$L3KH-5"`M__1@``$&B XM2'@`<B\M`!`O+0`(3KH#<$_O``Q.N@SR4JW_Y'(*("W_Y$ZZ)$!F```:+RW_B XMY$AZ`@Y.NA$F4$](;(&F3KHA!EA/+RT`%"\M_]A.N@/$4$]"K?_P8```Q$AX8 XM`',O+0`0+RT`"$ZZ`QA/[P`,3KH,FB\M_^1(>@'13KH0X%!/2&R!IDZZ(,!8C XM3U*M_^!2K?_P#*T````*__!O```,2'H!LDZZ#.Y83V```')(>@'82&R!O$ZZ, XM#XA03RM\`````?_<8```6"\M__1(>@')2&R!O$ZZ#VI/[P`,*WP````!_^QG" XM```42'H!Q4AL@;Q.N@].4$]@`/]D2'H!V4ZZ#)183V```!A5@&<`_U`$@```& XM`&]GF%>`9P#^ZF"J8```#$AZ`=A.N@QL6$\K3O_4(&R#5BQL@`9.KO^"+&W_P XMU&``_?0@;(-:(&@`#B!H`!1*D&<``'8K3O_4(&R#6B!H``XL;(-23J[^C"QM. XM_]1*@&<``%@,K0````'_[&8``$Q(>`!S+RT`$"\M``A.N@'T3^\`#"\M_^1($ XM>@%W3KH/P%!/2&R!IDZZ'Z!83U*M_^!2K?_P#*T````*__!O```,2'H!6$ZZ- XM"\Y83V``_41*K(`>9P``*"\L@!Y(;(->+RT`%$ZZ)7Q/[P`,L*R`'F<```Q(J XM>@%:3KH.;EA/+RW_X"\M_^1(>@%43KH/5$_O``Q,WP``3EU.=6]U="!O9B!S_ XM>6YC("T@;&]O:VEN9R!F;W(@)T]P96XG(&9R;VT@1EHQ`"4T9"!O:R`-`"4T3 XM9"!E<G(-`&5X8V5E9&5D(&UA>"!R971R:65S(&9O<B!A('!A8VME="`M('1RH XM86YS9F5R(&9A:6QE9`!C87-I;R!I<R!D;VYE"@!U;FMN;W=N(&-O;6UA;F0@. XM/2`P>"5X"@!W:6QL('1R>2!T<F5A=&EN9R!I="!A<R!A(&1A=&$@97)R;W(*A XM`'5N:VYO=VX@8V]M;6%N9"!A;F0@;F]T(&EN("=R96%D)R!M;V1E`'-T871EZ XM('9A<FEA8FQE(&9R:65D`"4T9"!T;6\-`&5X8V5E9&5D(&UA>"!R971R:65S% XM(&9O<B!A('!A8VME="`M('1R86YS9F5R(&9A:6QE9`!O=71P=70@9FEL90!T\ XM;W1A;"!P86-K971S(')E8V5I=F5D("5D("@E9"!R971R:65S*0H`3E7__$CGZ XM``!P`!`L@":`K0`,&4"`)AEM`!.`)RM.__Q![(`B(D@@;0`(+&R`!DZN_X@L9 XM;?_\3-\``$Y=3G5.5?_R2.<``"MM``C__%RM__Q"K?_V0JW_\F````92K?_V! XM#*T```"`__9L```4(&W__%*M__QP`!`0T:W_\F#><`"0K?_R`H````!_3-\`W XM`$Y=3G5.5?_V2.<``"MM``C__%RM__Q"K?_V8```!E*M__8,K0```$#_]FP`L XM`'8@;?_\4JW__!M0__L@;?_\4JW__!M0__IP`!`M__KI@'(`$BW_^X"!(BR`, XM'E*L@!Y![(->$8`8``RL``!``(`>;0``+DAX0`!(;(->+RT`#$ZZ(M!/[P`,C XM#(```$``9P``#$AZ`!A.N@O`6$]"K(`>8`#_?DS?``!.74YU;W5T<'5T(&9IU XM;&4`3E7_Y$CG```K?/______[$AZ`F9(;(&\3KH+8%!/2'H"F$AL@;Q.N@M2S XM4$](>@+"2&R!O$ZZ"T103TAZ`O%(;(&\3KH+-E!/2'H#'4AL@;Q.N@LH4$](/ XM>@,X2&R!O$ZZ"QI03PRM`````@`(9P``*$AZ`V!(;(&\3KH+`%!/2'H#A4AL* XM@;Q.N@KR4$](>``!3KHB\%A/0?H#I2M(__Q!^@.D*TC_^"!M``PK:``$__1(J XM>`&V+RW_]$ZZ$:903RM`__`,@/____]F```D2'H#?$AL@;Q.N@JD4$\O+?_T> XM3KH*P%A/2'@``DZZ(IA83RM._^AP`$/Z`W$L;(-23J[]V"QM_^@I0(`*9@``\ XM%$AZ`VM(;(&\3KH*9%!/8``!/DAZ]HA.N@AV6$\K3O_H<`=#^@-G+&R#4DZN] XM_=@L;?_H*4"`!F8``!1(>@-<2&R!O$ZZ"BI03V```00K3O_HD\D@;?_\+&R`L XM!DZN_]8L;?_H*4"`$F8``!HO+?_\2'H#04AL@;Q.N@GV3^\`#&```,XK3O_H_ XMD\D@;?_X+&R`!DZN_\0L;?_H*4"`#F8``!HO+?_X2'H#*$AL@;Q.N@G`3^\`T XM#&```)A([40`_^1![(`J)$@B;?_X0?H#'RQL@`9.KO^43.U$`/_D*4"`%DJL( XM@!9F```H2.U$`/_D0>R`*B1((FW_^$'Z`ODL;(`&3J[_E$SM1`#_Y"E`@!9(3 XM[40`_^1![(`J)$A#^@+>(&W__"QL@`9.KO^43.U$`/_D*4"`&DZZ!;0O+?_P8 XM+RW_["\L@`XO+(`23KKWVD_O`!`O+?_P3KHBVEA/3KH';$*G3KHA%EA/3-\`O XM`$Y=3G5R96%D>2!T;R!T86QK('1O(&-A<VEO+"!T:&4@<F]U=&5S(&%R92!DO XM;VYE(&%U=&]M871I8V%L;'D@9G)O;0H`;6ED:5]I;B!I9B!I="=S(&%V86EL% XM86)L92P@96QS92!-:61I26X@86YD('1O($UI9&E/=70N"@!)(&1O=VYL;V%D- XM(&%N9"!E>&ET('=H96X@9&]N92X@($D@875T;VUA=&EC86QL>2!D;R!R971RE XM:65S+@H`3F]N971H96QE<W,L($D@;6%Y("=H86YG)R!W:&5N('5P;&]A9&EN7 XM9RX@(%1H:7,@:7,@<V]F="X*`$AI="!>1"!T;R!R971R>2X@($]R(&AI="!>/ XM0RP@22=L;"!E>&ET+@H`22!W<FET92!T;R!T:&4@9FEL92!O;B!T:&4@9FQYJ XM("AE=F5R>2`R-38@<&%C:V5T<RDL('-O('=A=&-H(&ET+@H`=7-A9V4Z(&-AQ XM<VEO(&9I;&5N86UE+"!R;W5T97,@87)E(&%U=&]M871I8RP@=&AE;@H`('-E6 XM;&5C="!&6B!O=71P=70@9&5V:6-E(&%S("=M:61I)R!A;F0@9&\@82!V;VECF XM92!S879E"@!&6C%O=70`1EHQ:6X`8V]U;&1N)W0@8W)E871E(&]U='!U="!F: XM:6QE"@!I;G1U:71I;VXN;&EB<F%R>0!C86XG="!O<&5N(&EN='5I=&EO;BYL& XM:6)R87)Y"@!M:61I+FQI8G)A<GD`8V%N)W0@;W!E;B!M:61I+FQI8G)A<GD*H XM`&-A;B=T(&-R96%T92!3;W5R8V4@<&]R="`E<PH`8V%N)W0@8W)E871E($1E# XM<W0@<&]R="`E<PH`;6ED:5]I;@!-:61I26X`36ED:4]U=`!.50``2.<``$S?9 XM``!.74YU3E7__$CG``!(>@#\3KH';EA/(&T`"'``$"@`!B\`(&T`"'``$"@`, XM!`*`````#R\`2'H!"$ZZ!T9/[P`,(&T`"'``$"@`""\`(&T`"'``$"@`!R\`5 XM2'H`_$ZZ!R)/[P`,(&T`"`PH``$`!F8``!P@;0`(2B@`!V8``!`@;0`(#"@`8 XM`0`(9P``#$AZ`-Y.N@,D6$\@;0`(<``0*``,<@SCH"!M``AR`!(H``OA@8"!K XM(&T`"'(`$B@`"NF!@($@;0`(<@`2*``)@($K0/_\+RW__$AZ`-5.N@:F4$\@( XM;0`(<``0*``.+P`@;0`(<``0*``-+P!(>@#`3KH&A$_O``Q,WP``3EU.=61UC XM;7`@;V8@3W!E;B!-241)(&UE<W-A9V4@<F5C96EV960@9G)O;2!#87-I;R!&\ XM6BTQ"@!C:&%N;F5L("5D+"!S=&%T=7,@)60L(`!B86YK<R`E9"P@=F]I8V5SV XM("5D+"``22!D;VXG="!K;F]W(&AO=R!T;R!D;R!A;GET:&EN9R!O=&AE<B!T5 XM:&%N('-A=F4@82!S:6YG;&4@=F]I8V4`;F)L;V-K<R`E9"P@`&5D:70@8F%NW XM:R`E9"P@961I="!V;VEC92`E9`H``$Y5__A(YP`P0J="ITZZ#HQ03R1`(`IFO XM```,<`!,WPP`3EU.=4AX`"@O"DZZ#XA03R9`(`MF```.+PI.N@\:6$]P`^ XM*T[_^'(`(DL@+0`(0?H`*BQL@U).KOY$+&W_^"M`__Q*K?_\9P``#B\+3KH`3 XM&EA/<`!@I"`+8*!T:6UE<BYD979I8V4``$Y5__Q(YP`P)&T`""`*9P``+B9J$ XM``X@"V<```HO"TZZ#JQ83RM.__PB2BQL@U).KOX^+&W__"\*3KH//%A/3-\,0 XM`$Y=3G5.5?_\2.<``"M.__PB;(-:+&R#4DZN_B`L;?_\*7S_____PUXO+(-:O XM3KK_D%A/3-\``$Y=3G5.50``2.<``$*G3KK^[EA/*4"#6F8```Q(>@`D3KH`3 XMO%A/(&R#6BEH`!3#7DAZ_YQ.N@%T6$],WP``3EU.=4-A;B=T(&-R96%T92!T! XM:6UE<BX`3E7__$CG```@;(-:,7P`"0`<(&R#6B%\`````P`@(&R#6D*H`"0KN XM3O_\(FR#6BQL@U).KOXR+&W__$S?``!.74YU3E7__$CG```K3O_\(FR#6BQL^ XM@U).KOX@+&W__$S?``!.74YU2'@`"4AZ`)9(>``"3KH9X$ZZ`11(>``*3KH:) XMO$_O`!!.=4Y5_YQ(YR`@=`!*;(`X9Q9(>@"T2'H`L$AZ`&I.N@&8=`%/[P`,- XM.7P``8`X0>T`#"1(+PHO+0`(2&W_G$ZZ#B1(>@"$2'H`@$AM_YQ.N@%H2D)/? XM[P`89A!.N@"J2'@`"DZZ&E)83V`*2'@`%$ZZ&D983TS?!`1.74YU7D,@86)OU XM<G0*`$1O=6)L92!P86YI8R!D971E8W1E9"$@(%-Y<W1E;2!M87D@8F4@=6YR! XM96QI86)L92!U;FQE<W,@<F5B;V]T960A`%!!3DE#`$CG`"`O#G(!<`@L;(-2L XM3J[_.BQ?)$!*@&8*2'H`4$ZZ_Q183R2O``@E;(`Z``0I2H`Z3-\$`$YU2.<`J XM,$JL@#IG)"1L@#H@;(`Z*6@`!(`Z)E(O#G`((DHL;(-23J[_+BQ?3I-@UDS?& XM#`!.=55N86)L92!T;R!A;&QO8V%T92!M96UO<GD@9F]R(&$@8VQE86YU<"!F] XM=6YC=&EO;@``2.<@("1O``PD+P`40A(5?``!``$5?``!``)*@F<$<`9@`G`!P XM-4``!$J"9P1P`V`"<``U0``&0JH`"$*J`!`E;P`0``P@"DS?!`1.=4Y5_TQ(F XMYR`@)&T`"$AZ`-I(;?]@3KH6RB\L@`)(;?]@3KH*GDAX``%(;?]@2&W_[&&"1 XM6&W_\EAM__`O+?_X3KH1FB0`2'@``2\*2&W_V$ZZ_V0O"DZZ$82P@D_O`#!OJ XM"B\*3KH1=B0`6$]![?_8*TC__`9M`!+_WEAM_]Q(>``!+RT`#$AM_\1.NO\JD XM2'@``2\M`!!(;?^P3KK_&DCM3`S_3'9"("W_3"(`YXC0@0:`````*"0`<@!PP XM`$'M_[`F2$'M_\0D2$'M_^PB2)'(+&R`"DZN_J1,[4P,_TQ/[P`83-\$!$Y=4 XM3G5-97-S86=E(&9R;VT@`$CG("!![P`4)$@O"B\O`!0O+P`43KH+ZB0`(`)/* XM[P`,3-\$!$YU2.<`("1O``@@"F<>2A)G&DAL@;PO"DZZ`)9(;(&\2'H`2$ZZR XM`(I/[P`0+RS#8DZZ`CPD0$J`6$]G*$H29R1(;(&\+RS#8DZZ`B183R\`3KH`F XM7DAL@;Q(>``*3KH`$$_O`!!,WP0`3G4Z(```2.<@("0O``PD;P`0(`IG!DIJ' XM``QF"'#_3-\$!$YU(%*QZ@`$9`P@4E*2$()P`!`"8.9P`!`"+P`O"DZZ$+Y0@ XM3V#62.<@,"9O`!`D;P`48#0@4K'J``1D#"!24I(0@G``$`)@#G``$`(O`"\*G XM3KH0C%!/#(#_____9@AP_TS?#`1.=5*+%!-FR'``8/!(YR`@0>\`$"1(+PHO; XM+P`02&R!IDZZ"LPD`"`"3^\`#$S?!`1.=0!.;R!S=6-H(&9I;&4@;W(@9&ERN XM96-T;W)Y`$%R9R!L:7-T('1O;R!L;VYG`$)A9"!F:6QE(&1E<V-R:7!T;W(`T XM3F]T(&5N;W5G:"!M96UO<GD`1FEL92!E>&ES=',`26YV86QI9"!A<F=U;65NF XM=`!&:6QE('1A8FQE(&]V97)F;&]W`%1O;R!M86YY(&]P96X@9FEL97,`3F]TM XM(&$@8V]N<V]L90!097)M:7-S:6]N(&1E;FEE9`!)+T\@97)R;W(`3F\@<W!AX XM8V4@;&5F="!O;B!D979I8V4`4F5S=6QT('1O;R!L87)G90!!<F=U;65N="!O. XM=70@;V8@9&]M86EN`$5X96,@9F]R;6%T(&5R<F]R`%)E860M;VYL>2!F:6QE9 XM('-Y<W1E;0!#<F]S<RUD979I8V4@<F5N86UE`$YO=&AI;F<@=&\@<F5A9`!(B XMYR``)"\`"$J";1H,@@```!)N$B`"Y8!![(`^(#`(`$S?``1.=4'Z``8@"&#R, XM56YK;F]W;B!E<G)O<@`J3V%R0^R#4D7L@U*UR68.,CP0&6L(=``BPE')__PIB XM3\-F+'@`!"E.@U)(YX"`""X`!`$I9Q!+^@`(3J[_XF`&0J?S7TYS0_H`(DZN= XM_F@I0,-J9@PN/``#@`=.KO^48`8J3TZZ`!I03TYU9&]S+FQI8G)A<GD`2?D`_ XM`'_^3G5(YP`@2.<``B(\``$``#`L@TC!_``&+&R#4DZN_SI,WT``*4##;F8>T XM2.<!!IO-+CP``0``+&R#4DZN_Y1,WV"`+FS#9DYU(&S#;D)H``0@;,-N,7P`K XM`0`0(&S#;C%\``$`"B!LPV8@+,-FD*@`!%"`*4##<B!LPW(@O$U!3EA(YP`"< XMD\DL;(-23J[^VDS?0``D0$JJ`*QG/"\O``PO+P`,+PI.N@$,*7P````!PW8@0 XM;,-N6(@P$`!`@``P@"!LPV[1_`````HP$`!`@``P@$_O``Q@:DCG``(@2M'\M XM````7"QL@U).KOZ`3-]``$CG``(@2M'\````7"QL@U).KOZ,3-]``"E`PWH@6 XM;,-Z2J@`)&<F2.<``B!LPWH@:``D(A`L;,-J3J[_@DS?0``O+,-Z+PI.N@1.\ XM4$\I;,-ZPWY(YP`"+&S#:DZN_\I,WT``(&S#;B"`2.<``BQLPVI.KO_$3-]`5 XM`"!LPVXA0``&9R1(YR`")#P```/M0?H`-"((+&S#:DZN_^),WT`$(&S#;B%`8 XM``PO+,-^+RS#@DZZ[YY03R\`3KH3&%A/3-\$`$YU*@!(YS@R)B\`'"@O`"`F( XM;P`D($-*J`"L9Q0@0R`H`*SE@"Q`("X`$.6`)$!@!"1L@TH0$DB`2,#0A%2`Y XM*4##ADCG``)R`"`LPX8L;(-23J[_.DS?0``I0,.*9@9,WTP<3G40$DB`2,`D% XM`"\"($I2B"\(+RS#BDZZ!&Q(>@%*($+1[,.*+PA.NA!H+P0O"R\LPXI.N@$T. XM(&S#BD(P*``I?`````'#@B1"U>S#BE**)DI/[P`@$!)(@$C`)``,@````"!GE XM(`R"````"6<8#((````,9Q`,@@````UG"`R"````"F8$4HI@S`P2`"!M=@P2: XM`")F*E**$!I(@$C`)`!G'!;"#((````B9A`,$@`B9@12BF`&0BO__V`"8-I@` XM.!`:2(!(P"0`9RP,@@```"!G)`R"````"6<<#((````,9Q0,@@````UG#`R"M XM````"F<$%L)@RD(;2H)F`E.*4JS#@F``_U)"$TCG``)R`"`LPX+E@%B`+&R#Z XM4DZN_SI,WT``*4##?F8(0JS#@F``_M!T`"1LPXI@&B`"Y8`@;,-^(8H(`"\*V XM3KH*1-7`4HI83U*"M*S#@FW@(`+E@"!LPWY"L`@`8`#^F"``3.\#```$(`@BD XM+P`,2AAF_%.($-E7R?_\!($``0``:O)"($YU+R\`"$AX`P$O+P`,809/[P`,J XM3G5(YSXR+&\`)"@O`"A.NA#&)FS#;G0`8!!R!B`"3KH3`$JS"`!G$%*",&R#) XM2+'";NAV"&```4X(!``)9UY(YR`"=/\B+P`$+&S#:DZN_ZQ,WT`$*@!G1$CG0 XM``(B!2QLPVI.KO^F3-]``$CG``(B%RQLPVI.KO^X3-]``$J`9AQ(YP`"+&S#? XM:DZN_WQ,WT``)@`,@````,UF``#J2.<@`B0\```#[2(O``0L;,-J3J[_XDS?> XM0`0D0"`*9@``I`@$``AF!G8!8```O$CG(`(D/````^XB+P`$+&S#:DZN_^),4 XMWT`$)$!*@&862.<``BQLPVI.KO]\3-]``"8`8```ADCG``)P(4/Z`,`L;(-2= XM3J[]V$S?0``L`&<42.<``B)&+&R#4DZN_F),WT``8#!(YS`"=@%!^@">)`@B_ XM"BQLPVI.KO_03-]`#$CG,`)V_W0`(@HL;,-J3J[_ODS?0`Q@,"`$`H````4`W XM#(````4`9B!(YP`"(@HL;,-J3J[_W$S?0`!V!2E#PV)P_TS?3'Q.=7(&(`).4 XMNA&*)XH(`'(&(`).NA%^-X0(!`@$``MG%DCG,`)V`70`(@HL;,-J3J[_ODS?[ XM0`P@`F#"9&]S+FQI8G)A<GD```!(YS`R+&\`&$CG``)P`$/Z`-8L;(-23J[]7 XMV$S?0``I0,..9@9,WTP,3G5(YP`"(&\`("!H`"0@:``$+&S#CDZN_[),WT``( XM)$!*@&=^2.<``D/Z`*$@:@`V+&S#CDZN_Z!,WT``)`!G4$CG(`(D/````^TBO XM%RQLPVI.KO_B3-]`!"9`2H!G,B`+Y8`F`"!#+6@`"`"D+4L`G$CG(`(D/```0 XM`^U!^@!6(@@L;,-J3J[_XDS?0`0M0`"@2.<``B!*+&S#CDZN_Z9,WT``2.<`( XM`B)LPXXL;(-23J[^8DS?0`!"K,..8`#_0&EC;VXN;&EB<F%R>0!724Y$3U<`7 XM*@!,[P,```0@"$H89OQ32!#99OQ.=4SO`P``!"`((B\`#&`"$-E7R?_\9PP$E XM@0`!``!J\$YU0AA1R?_\!($``0``:O).=4CG(#`F;P`02.<``G#_+&R#4DZN@ XM_K9,WT``)``,@/____]F"'``3-\,!$YU2.<``B(\``$``7`B+&R#4DZN_SI,X XMWT``)$!*@&862.<``B`"+&R#4DZN_K!,WT``<`!@QB5+``H5;P`7``D5?``$G XM``A"*@`.%4(`#TCG``*3R2QL@U).KO[:3-]``"5``!`@"V<42.<``B)*+&R#T XM4DZN_IY,WT``8!`@2M'\````%"\(3KH&-EA/(`I@`/]L2.<`("1O``A*J@`*/ XM9Q)(YP`"(DHL;(-23J[^F$S?0``5?`#_``@E?/____\`%$CG``)P`!`J``\L? XM;(-23J[^L$S?0`!(YP`"<"(B2BQL@U).KO\N3-]``$S?!`!.=4CG(#`F;P`0< XM)"\`%"`+9@AP`$S?#`1.=4CG``(B/``!``$@`BQL@U).KO\Z3-]``"1`2H!F" XM!'``8-@5?``%``@U0@`2)4L`#B`*8,9(YP`@)&\`""`*9@9,WP0`3G45?`#_C XM``@E?/____\`%"5\_____P`82.<``G``,"H`$B)*+&R#4DZN_RY,WT``8,I.@ XM5?_J2.<@("1M``@[?`0(__8K2O_J*TK_\BM*_^X&K0``?___[B\M`!`O+0`,6 XM2&W_ZDZZ`!8D`$(R*``@`D_O``Q,WP0$3EU.=4Y5_?1(YS\R)FT`""QM`!!^_ XM`"1M``P6$F8*(`=,WTS\3EU.=5**#`,`)6=")`<@4['K``1D#"!34I,0@W``_ XM$`-@#G``$`,O`"\+3KH%0%!/#(#_____9P`$9%*"%A)F!"`"8+A2B@P#`"5F& XMPBX">``K?````"#__!8:<``0`V!F",0``&#R",0``6#L",0``F#F",0``V#@_ XM6(XD+O_\2H)L!@C$``!$@A8:8%8K?````##__'0`8!@@`N>`<@`2`]"!T(+0J XM@B0`!((````P%AIP`!`#0>R`CQ`P``!(@`@```)FU&`<!$``(&>@5T!GHE]`] XM9Z130&>.54!GA%=`9ZQ@LBM"__@D/```?<8,`P`N9EP6&@P#`"IF%%B.)"[_O XM_$J";`8D/```?<86&F`P=`!@&"`"YX!R`!(#T('0@M"")``$@@```#`6&G``( XM$`-![("/$#```$B`"````F;4#((``'W&9P@K?````"#__"H"#`,`:&8&",0`X XM!V`6#`,`;&8&",0`!F`*#`,`3&8&",0`"!8:*TH`#'``$`-@``&.8``#&@@$G XM``=G"EB.(&[__#"'8!@(!``&9PI8CB!N__P@AV`(6(X@;O_$(=T`&```:A8" XMCB1N__PO"DZZ`P@D``R%``!]QEA/9P:TA6\")`5@``&&6(X6+O__0>W]^"1(D XM$(-T`6```7)T"&`0`$0`2'9X=!!@!@C$``1T"@P#`%AF"$'Z`IX@"&`&0?H"T XMIR`(*T#]]`@$``9G"%B.+"[__&`4"`0`!&<(6(XL+O_\8`98CBPN__P(!``$& XM9PI*AFP&1(8(Q``%0>W_^"1(#(4``'W&9@)Z`4J&9@1*A6<<(@(@!DZZ!;X@7 XM;?WT%3`(`"("(`9.N@6Z+`!FY$'M__B1RB0("`0``V=N#`,`;V842H)G"@P25 XM`#!G"+2%;00J`E*%8%0,`P!X9P8,`P!89DA*@F=$#!(`,&<^M(5L$$'M_?JQ^ XMRF0(%3P`,%*"8.P(!```9AP,K0```##__&82(`)4@+"M__AL""HM__A5A6#*1 XM%0,5/``P5(*TA6P00>W]^+'*9`@5/``P4H)@[&!,!$``)6<`_L@$0``S9P#^M XMV`1```MG`/ZR4T!G`/[.6T!G`/[(6T!G`/Y04T!G`/ZN4T!G`/ZL5T!G`/YL. XM54!G`/ZN5T!G`/Z@8`#^*@@$``1G*`@$``5G!A4\`"U@&@@$``%G!A4\`"M@W XM#@@$``)G!A4\`"!@`E."4H+>@@@$``!F``"0#*T````P__QF0@@$``1G/#`$: XM`D``)F<T(%.QZP`$9`X@4U*3$)IP`!`J__]@#G``$!HO`"\+3KH!I%!/#(#_Z XM____9P``R%.M__A3@F`T(%.QZP`$9!`@4U*3$*W__W``$"W__V`0<``0+?__L XM+P`O"TZZ`6I03PR`_____V<``(Y2AR`M__A3K?_XL()NP"H"(`)3@DJ`9RX@. XM4['K``1D#B!34I,0FG``$"K__V`.<``0&B\`+PM.N@$D4$\,@/____]G2&#*M XM"`0``&<$`5@+"!3L>L`!&0.(%-2DQ"\`"!P`'`@8`Q(>``@+PM.N@#N4$\,4 XM@/____]G$E*'("W_^%.M__BP@F[(8`#[6'#_8`#[7#`Q,C,T-38W.#E!0D-$A XM148`,#$R,S0U-C<X.6%B8V1E9@`@;P`$(`A*&&;\4TB1P"`(3G4@;P`$((A86 XMD$*H``0A2``(3G5(YP`@)&\`""`*9D1![(&0)$A*:@`,9R8P*@`,`D`""&8<; XM2'C__R\*3KH`6@R`_____U!/9@AP_TS?!`!.==7\````%D'L@TBUR&7&<`!@F XMZ$AX__\O"DZZ`"Q03V#:2.<`($'L@9`D2"\*3KH!OEA/U?P````60>R#2+7(H XM9>I,WP0`3G5(YSP@)&\`&"@O`!P@"F<``9`T*@`,9P`!B`@"``EF``&`"`(`J XM`V8``7@@2M'\````##`0`D#O_3"`2JH`"&8<#(3_____9@AP`$S?!#Q.=2\*2 XM3KH"R#0J``Q83P@"``YF-"!2L>H`"&,>2'@``2`2D*H`!"\`$"H`#DB`2,`O2 XM`$ZZ!$Q/[P`,)*H`""!J`!#1TB5(``0,A/____]F!'8`8`(6!"`2D*H`""H`L XM,`("0`"@9TX,A/____]G(B!24I(0@R!*T?P````,,!`(P``.,(`T`$'Z_P0IK XM2,.24H4,A/____]G#`P#``IG!KJJ`!!E!'C_8`PE4@`$<``0`V``_TH(`@`.X XM9S!*A6<<+P4O*@`($"H`#DB`2,`O`$ZZ!':PA4_O``QF7B!*T?P````,,!`(5 XM@``.,(`,A/____]F$B2J``@E:@`(``1P`!`#8`#^^D'Z_H8I2,.2($K1_```* XM``PP$`C```XP@"2J``@@:@`0T=(E2``$(%)2DA"#<``0`V``_L8@2M'\````= XM##`0",```C"`)6H`"``$)*H`"'#_8`#^IDY5__9(YS@@)&T`"'0`(`IG!DIJA XM``QF"G#_3-\$'$Y=3G4(*@`!``QF"B\*3KK]J(2`6$\0*@`.2(!(P"\`3KH&Y XM3H2`""H````-6$]G"B\J``A.N@&66$]*:@`49TY(>@!J2&W_]TZZ`E`X*@`4T XM=@!03W``,`1R"DZZ`'P&@````#!R!Y*#0>W_]Q&`&`!(Q(G\``I2@PR#````) XM!6W40BW__TAM__=.N@,26$]"DD*J``1"J@`(0FH`#$J"9P9P_V``_UAP`&``! XM_U)435``2.=(`$*$2H!J!$2`4D1*@6H&1($*1``!83Y*1&<"1(!,WP`22H!./ XM=4CG2`!"A$J`:@1$@%)$2H%J`D2!81H@`6#8+P%A$B`!(A]*@$YU+P%A!B(?^ XM2H!.=4CG,`!(04I!9B!(038!-`!"0$A`@,,B`$A`,@*"PS`!0D%(04S?``Q.L XM=4A!)@$B`$)!2$%(0$)`=`_0@-.!MH%B!)*#4D!1RO_R3-\`#$YU2.<@("1O0 XM``QT01`J``Y(@$C`+P!.N@$Z2H!83V<"="$E?```!```$$AX!`!.N@#&)4``F XM"%A/9A@E?`````$`$"!*T?P````/)4@`"#0\`(`@2M'\````#'``,!`R`DC!Z XM@($P@"5J``@`!"2J``A,WP0$3G5(YP`PE\LD;,.68!`@2E"((F\`#+/(9PXFG XM2B12(`IF[$S?#`!.=2`+9P0FDF`$*5+#EDCG``(@*@`$4(`B2BQL@U).KO\N- XM3-]``*.<`,"1LPY9@'"922.<``B`J``10@")*+&R#4DZN_RY,WT``)$L@F XM"F;@0JS#EDS?#`!.=4CG("`D+P`,2H)F"'``3-\$!$YU2.<``G(`(`)0@"QLL XM@U).KO\Z3-]``"1`2H!F!'``8-I!^O^6*4C#FB2LPY8E0@`$*4K#EB`*4(!@/ XMP$SO`P``!"`($-EF_$YU2.<@("0O``QR!B`"3KH$$B1`U>S#;DJ";0PP;(-(` XML<)O!$J29A`I?`````/#8G#_3-\$!$YU2.<``G(&(`).N@/@(&S#;B(P"``LC XM;,-J3J[_*$S?0`!*@&<$<`%@`G``8,Y(YS`@)"\`$$ZZ`6IR!B`"3KH#K"1`7 XMU>S#;DJ";0PP;(-(L<)O!$J29A`I?`````/#8G#_3-\$#$YU2.<P`B`O`"13W XM@"8`)"\`("(2+&S#:DZN_[Y,WT`,)@`,@/____]F&$CG``(L;,-J3J[_?$S?& XM0``I0,-B</]@NDCG,`)V`'0`(A(L;,-J3J[_ODS?0`Q@HDCG``(B+P`(+&S#R XM:DZN_[A,WT``2H!F&$CG``(L;,-J3J[_?$S?0``I0,-B</].=7``8/I(YS`@Q XM)"\`$$ZZ`*1R!B`"3KH"YB1`U>S#;DJ";0PP;(-(L<)O!$J29A`I?`````/#^ XM8G#_3-\$#$YU,"H`!`)```-F#"E\````!L-B</]@Y`@J``,`!&<62.<P`G8!U XM=``B$BQLPVI.KO^^3-]`#$CG,`(F+P`D)"\`("(2+&S#:DZN_]!,WT`,)@`,7 XM@/____]F&$CG``(L;,-J3J[_?$S?0``I0,-B</]@BB`#8(9(YR``2.<``B(\@ XM```0`'``+&R#4DZN_LY,WT``)``(```,9Q)*K,-V9@@@`DS?``1.=4ZZX9!PK XM`&#R2JS#GF<4(&S#GB!H``1.D"!LPYXI4,.>8.9*K,.29P8@;,.23I`O+P`$A XM3KH`!EA/3G5(YS``)B\`#$JLPVYG,G0`8`HO`DZZ`7!83U*",&R#2+'";NY(Y XMYP`","R#2,'\``8B;,-N+&R#4DZN_RY,WT``2JS#FF<&(&S#FDZ02JR#3F<4< XM2.<``B(L@TXL;,-J3J[_IDS?0`!*K,.B9P@@;,.B(*S#IDJLPZIG%$CG``(B" XM;,.J+&R#4DZN_F),WT``2JS#KF<42.<``B)LPZXL;(-23J[^8DS?0`!*K,.R^ XM9Q1(YP`"(FS#LBQL@U).KOYB3-]``$JLP[9G%$CG``(B;,.V+&R#4DZN_F),: XMWT``2.<`!BQX``0(+@`$`2EG$$OZ``A.KO_B8`9"I_-?3G,J7TJLPWIF/$JLW XMPXIG-$CG``(@+,.&(FS#BBQL@U).KO\N3-]``$CG``(@+,."Y8!8@")LPWXL$ XM;(-23J[_+DS?0`!@)$CG``(L;(-23J[_?$S?0`!(YP`"(FS#>BQL@U).KOZ&" XM3-]``$CG``(B;,-J+&R#4DZN_F),WT``(`,N;,-F3G5,WP`,3G5(YR`@)"\`P XM#'(&(`).N@!*)$#5[,-N2H)M##!L@TBQPF\$2I)F$"E\`````\-B</],WP0$A XM3G4P*@`$`D"``&822.<``B(2+&S#:DZN_]Q,WT``0I)P`R.=P`#0!Q,`F! XM`4A#QL!(0T)#U(-(0,#!2$!"0-""3-\`#DYU``````/L`````0````$``!<X: XM`````````_(```/J````U`````0`````````````````````````````````Z XM````\$0"`'``]P`$`/__````````````````````````%38``!4W```540``< XM%6,``!5W```5B0``%94``!6F```5N@``%<X``!7<```5[@``%?@``!80```6V XM(0``%C@``!9*```68```%G0````3`"`@("`@("`@(#`P,#`P("`@("`@("`@2 XM("`@("`@("`@D$!`0$!`0$!`0$!`0$!`0`P,#`P,#`P,#`Q`0$!`0$!`"0D)# XM"0D)`0$!`0$!`0$!`0$!`0$!`0$!`0%`0$!`0$`*"@H*"@H"`@("`@("`@("_ XM`@("`@("`@("`D!`0$`@````````````````````````````````````````T XM````````````````````````````````````````````````````````````` XM````````````````````````````````````````````````````````````` XM`````````````````````````````@````````$```````````````````0`' XM`0`````!```````````````````$``(``````0``````````````````````) XM````````````````````````````````````````````````````````````` XM````````````````````````````````````````````````````````````` XM````````````````````````````````````````````````````````````` XM````````````````````````````````````````````````````````````` XM````````````````````````````````````````````````````````````` XM````````````````````````````````````````````````````````````` XM````````````````````````````````````````````````````````````` XM````````````````````````````````````````````````````````````` XM%``````````````#[````!0``````````````#P```!`````1````$@```!,K XM````4````%0```!8````7````&````!D````:````&P```!P````=````'@`, X?``!\````@````(0````````#\@```^L````!```#\FP`% X`` Xend Xsize 12856 END_OF_FILE if test 18036 -ne `wc -c <'casio.uu'`; then echo shar: \"'casio.uu'\" unpacked with wrong size! fi # end of 'casio.uu' fi if test -f 'cleanup.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'cleanup.c'\" else echo shar: Extracting \"'cleanup.c'\" $1419 characters$ sed "s/^X//" >'cleanup.c' <<'END_OF_FILE' X/* cleanup - Peter and Karl's standard cleanup management X * X * "cleaned up" the documentation 3/1/88 X * X */ X X#include <exec/types.h> X#include <functions.h> X#include <exec/memory.h> X#include <stdio.h> X Xstruct _clean X{ X int (*function)(); X struct _clean *next; X} *cleanlist = NULL; X X/* add_cleanup X * given a function, add it to a list of functions to call when cleanup X * is executed X */ Xadd_cleanup(function) Xint (*function)(); X{ X struct _clean *ptr; X X ptr = AllocMem(sizeof(struct _clean), MEMF_PUBLIC); X if(!ptr) X return 0; X ptr->function = function; X ptr->next = cleanlist; X cleanlist = ptr; X} X X/* cleanup X * call all the functions that were passed as arguments to add_cleanup X * this run X */ Xcleanup() X{ X struct _clean *ptr; X int (*f)(); X X fflush(stdout); X fflush(stderr); X X while(cleanlist) X { X /* locate the next cleanup function and get the function pointer */ X ptr = cleanlist; X cleanlist = cleanlist->next; X f = ptr->function; X X /* cleanup must clean up after itself */ X FreeMem(ptr, sizeof(struct _clean)); X X /* execute the function */ X (*f)(); X X fflush(stdout); X fflush(stderr); X } X} X X/* panic - abort with an error message */ X Xshort panic_in_progress = 0; X Xpanic(s) Xchar *s; X{ X fflush(stdout); X fprintf(stderr,"panic: %s\n",s); X fflush(stderr); X if (!panic_in_progress) X { X cleanup(); X exit(10); X } X fprintf(stderr,"double panic!\n"); X} X X_abort() X{ X panic("^C or other C library abort"); X} END_OF_FILE if test 1419 -ne `wc -c <'cleanup.c'`; then echo shar: \"'cleanup.c'\" unpacked with wrong size! fi # end of 'cleanup.c' fi if test -f 'dumpvoice.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'dumpvoice.c'\" else echo shar: Extracting \"'dumpvoice.c'\" $1885 characters$ sed "s/^X//" >'dumpvoice.c' <<'END_OF_FILE' X/* dumpvoice */ X X#include "casio.h" X#include "fz1.h" X#include <stdio.h> X Xdumpvoice(p) Xstruct voicedata *p; X{ X printf("wave_start_address %ld, wave_end_address %ld\n",wave_start_address,wave_end_address); X printf("generator_start_address %ld, generator_end_address %ld\n",generator_start_address,generator_end_addresss); X X printf("loop_style %d, sustain_loop_number %d, multi_loop_end_number %d\n",loop_style,sustain_loop_number,multi_loop_end_number); X X for (i = 0; i < 8; i++) X { X printf("loop_start_addresses[%d] %ld, loop_end_address[%d] %ld\n",i,loop_start_addresses[i],i,loop_end_addresses[i]); X printf("loop_cross_feed_time[%d] %ld, loop_time[%d] %ld\n",loop_cross_feed_time[i],loop_time[i]); X } X X printf("voice_pitch %d, frequency_offset %d, filter_Q_offset %d\n",voice_pitch,frequency_offset,filter_Q_offset); X X X printf("dca_envelope_sustain_point %d, dca_envelope_end_point %d\n",dca_envelope_sustain_point,dca_envelope_end_point); X BYTE dca_envelope_sustain_point; X BYTE dca_envelope_end_point; X BYTE dca_envelope_rate_values[NLOOPS]; X UBYTE dca_envelope_stop_values[NLOOPS]; X X BYTE dcf_envelope_sustain_point; X BYTE dcf_envelope_end_point; X BYTE dcf_rate_envelope_rate_values[NLOOPS]; X UBYTE dcf_envelope_stop_values[NLOOPS]; X X unsigned short lfo_delay_time; X UBYTE lfo_waveform; X UBYTE lfo_attack_value; X BYTE lfo_rate; X BYTE lfo_pitch_depth; X BYTE lfo_amplitude_depth; X BYTE lfo_filter_depth; X BYTE lfo_filter_Q_depth; X BYTE initial_touch_Q_follow; X X BYTE dca_keyboard_follow_depth; X BYTE dca_noterate_scaling_depth; X BYTE dcf_keyboard_follow_depth; X BYTE dcf_noterate_scaling_depth; X X BYTE initial_touch_dca_key_follow; X BYTE initial_touch_dca_rate_scaling; X BYTE initial_touch_dcf_key_follow; X BYTE initial_touch_dca_rate_scaling; X X UBYTE high_width_MIDI_code; X UBYTE low_width_MIDI_code; X UBYTE keynote_center; X X UBYTE sampling_frequency_index; X X char name[14]; X} X X END_OF_FILE if test 1885 -ne `wc -c <'dumpvoice.c'`; then echo shar: \"'dumpvoice.c'\" unpacked with wrong size! fi # end of 'dumpvoice.c' fi if test -f 'fz1.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'fz1.h'\" else echo shar: Extracting \"'fz1.h'\" $1453 characters$ sed "s/^X//" >'fz1.h' <<'END_OF_FILE' X/* Casio FZ-1 data structure definitions */ X X#define NLOOPS 8 X Xstruct voicedata X{ X long wave_start_address; X long wave_end_address; X long generator_start_address; X long generator_end_address; X X short loop_style; X BYTE sustain_loop_number; X BYTE multi_loop_end_number; X long loop_start_addresses[NLOOPS]; X X long loop_end_addresses[NLOOPS]; X X short loop_cross_feed_time[NLOOPS]; X unsigned short loop_time[NLOOPS]; X X short voice_pitch; /* voice pitch with detune */ X BYTE frequency_offset; X BYTE filter_Q_offset; X X BYTE dca_envelope_sustain_point; X BYTE dca_envelope_end_point; X BYTE dca_envelope_rate_values[NLOOPS]; X UBYTE dca_envelope_stop_values[NLOOPS]; X X BYTE dcf_envelope_sustain_point; X BYTE dcf_envelope_end_point; X BYTE dcf_rate_envelope_rate_values[NLOOPS]; X UBYTE dcf_envelope_stop_values[NLOOPS]; X X unsigned short lfo_delay_time; X UBYTE lfo_waveform; X UBYTE lfo_attack_value; X BYTE lfo_rate; X BYTE lfo_pitch_depth; X BYTE lfo_amplitude_depth; X BYTE lfo_filter_depth; X BYTE lfo_filter_Q_depth; X BYTE initial_touch_Q_follow; X X BYTE dca_keyboard_follow_depth; X BYTE dca_noterate_scaling_depth; X BYTE dcf_keyboard_follow_depth; X BYTE dcf_noterate_scaling_depth; X X BYTE initial_touch_dca_key_follow; X BYTE initial_touch_dca_rate_scaling; X BYTE initial_touch_dcf_key_follow; X BYTE initial_touch_dca_rate_scaling; X X UBYTE high_width_MIDI_code; X UBYTE low_width_MIDI_code; X UBYTE keynote_center; X X UBYTE sampling_frequency_index; X X char name[14]; X} X X END_OF_FILE if test 1453 -ne `wc -c <'fz1.h'`; then echo shar: \"'fz1.h'\" unpacked with wrong size! fi # end of 'fz1.h' fi if test -f 'hilo.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'hilo.c'\" else echo shar: Extracting \"'hilo.c'\" $1753 characters$ sed "s/^X//" >'hilo.c' <<'END_OF_FILE' X/* hilo - print highest and lowest sample values */ X X#include <stdio.h> X Xshort buffer[512]; X Xmain(argc,argv) Xint argc; Xchar *argv[]; X{ X FILE *fopen(), *fp; X short sample, i, average; X short blockhisample, blocklosample; X short grandhisample = -32768, grandlosample = 32767; X long grandtotal = 0, nsamples = 0; X long blocktotal; X unsigned long blockvariance, grandvariance = 0; X unsigned long sample_squared; X X if (argc != 2) X { X fprintf(stderr,"usage: hilo casiodumpfilename\n"); X printf("argc %d\n",argc); X exit(1); X } X X if ((fp = fopen(argv[1],"r")) == NULL) X { X perror(argv[1]); X exit(2); X } X X if (fseek(fp,1024L,1) == -1) X { X perror(argv[1]); X exit(3); X } X X while (fread(buffer,1024,1,fp) != 0) X { X nsamples += 512; X X blockhisample = -32768; X blocklosample = 32767; X blocktotal = 0; X blockvariance = 0; X X for (i = 0; i < 512; i++) X { X sample = buffer[i]; X /* printf("%4x ",(sample >> 4) & 0xf); */ X X /* compute block values */ X blocktotal += sample; X if (sample < blocklosample) X blocklosample = sample; X if (sample > blockhisample) X blockhisample = sample; X X /* compute grand values */ X grandtotal += sample; X if (sample < grandlosample) X grandlosample = sample; X if (sample > grandhisample) X grandhisample = sample; X X /* compute variance */ X sample_squared = ((sample / 32) * (sample / 32)); X blockvariance += sample_squared; X grandvariance += sample_squared; X } X average = blocktotal/512; X X printf("512 samples: avg %d, hi %d, lo %d, variance %ld\n",average,blockhisample,blocklosample,blockvariance * 2); X } X average = grandtotal/nsamples; X X printf("totals: nsamples %ld, avg %d, hi %d, lo %d, variance %ld\n",nsamples,average,grandhisample,grandlosample,grandvariance * 2); X exit(0); X} END_OF_FILE if test 1753 -ne `wc -c <'hilo.c'`; then echo shar: \"'hilo.c'\" unpacked with wrong size! fi # end of 'hilo.c' fi if test -f 'hilo.uu' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'hilo.uu'\" else echo shar: Extracting \"'hilo.uu'\" $12525 characters$ sed "s/^X//" >'hilo.uu' <<'END_OF_FILE' Xbegin 644 hilo XM```#\P`````````#``````````(```?$```!W`````$```/I```'Q$[Z".).; XM5?_62.<``#M\@`#_\#M\?___[D*M_^I"K?_F0JW_V@RM`````@`(9P``*$AZI XM`@I(;(&`3KH"F%!/+RT`"$AZ`A=.N@0&4$](>``!3KH<B%A/2'H"#"!M``PO> XM*``$3KH%R%!/*T#__&8``!H@;0`,+R@`!$ZZ`MQ83TAX``).NAQ66$](>``!K XM2'@$`"\M__Q.N@/>3^\`#`R`_____V8``!H@;0`,+R@`!$ZZ`J983TAX``-.R XMNAP@6$\O+?_\2'@``4AX!`!(;(,63KH"*$_O`!!*@&<``1@&K0```@#_YCM\A XM@`#_]#M\?___\D*M_^)"K?_>0FW_^&````92;?_X#&T"`/_X;```JC`M__A(; XMP-"`0>R#%CMP"`#_^C!M__H@"-&M_^(P+?_ZL&W_\FP```@[;?_Z__(P+?_Z? XML&W_]&\```@[;?_Z__0P;?_Z(`C1K?_J,"W_^K!M_^YL```(.VW_^O_N,"W_^ XM^K!M__!O```(.VW_^O_P,&W_^B`(<B!.NA<2+P`P+?_Z2,!R($ZZ%P0B`"`?Q XM3KH=3BM`_]8@+?_6T:W_WB`M_];1K?_:8`#_3"(\```"`"`M_^).NA;6.T#_0 XM]B`M_][0@"\`,&W_\B\(,&W_]"\(,&W_]B\(2'H`@DZZ`F9/[P`48`#^SB(MU XM_^8@+?_J3KH6G#M`__8@+?_:T(`O`#!M_^XO"#!M__`O"#!M__8O""\M_^9(` XM>@!U3KH"*$_O`!A"ITZZ&JI83TS?``!.74YU=7-A9V4Z(&AI;&\@8V%S:6]D: XM=6UP9FEL96YA;64*`&%R9V,@)60*`'(`-3$R('-A;7!L97,Z(&%V9R`E9"P@9 XM:&D@)60L(&QO("5D+"!V87)I86YC92`E;&0*`'1O=&%L<SH@;G-A;7!L97,@R XM)6QD+"!A=F<@)60L(&AI("5D+"!L;R`E9"P@=F%R:6%N8V4@)6QD"@``2.<@! XM($'O`!0D2"\*+R\`%"\O`!1.N@W")``@`D_O``Q,WP0$3G5(YSPP)F\`'"HOO XM`"`D;P`H2H5F"'``3-\,/$YU=`!@-"8%8"H@4K'J``1D"B!24I)P`!`08`@OW XM"DZZ`A983R@`#(#_____9Q(6A%*+4X-*@V;24H*TKP`D9<8@`F"X2.<`("1ON XM``@@"F<>2A)G&DAL@8`O"DZZ`)9(;(&`2'H`2$ZZ`(I/[P`0+RR'%DZZ!2(D* XM0$J`6$]G*$H29R1(;(&`+RR'%DZZ!0I83R\`3KH`7DAL@8!(>``*3KH`$$_O\ XM`!!,WP0`3G4Z(```2.<@("0O``PD;P`0(`IG!DIJ``QF"'#_3-\$!$YU(%*Q: XMZ@`$9`P@4E*2$()P`!`"8.9P`!`"+P`O"DZZ$B903V#62.<@,"9O`!`D;P`48 XM8#0@4K'J``1D#"!24I(0@G``$`)@#G``$`(O`"\*3KH1]%!/#(#_____9@API XM_TS?#`1.=5*+%!-FR'``8/!(YR`@0>\`$"1(+PHO+P`02&R!:DZZ#$8D`"`"P XM3^\`#$S?!`1.=4CG/B`D;P`<+"\`("@O`"0@"F<``+PZ*@`,9P``M"!*T?P`! XM```,,!`"0._],(`(!0`.9Q1(>/__+PI.NA%T2H!03V8``(Q@7`R$`````F=4H XM("H`!)"2)@!O2C`%`D`8@&8X)`9*A&8<2'@``4*G$"H`#DB`2,`O`$ZZ%@209 XM@Y2`3^\`#"`2D*H`"-"";0RT@VX(($+1TB2(8"X,A`````%F`IR#)6H`"``$_ XM)*H`""\$+P80*@`.2(!(P"\`3KH5P$J`3^\`#&T(<`!,WP1\3G5P_V#V2.<PM XM,"1O`!0@"F<6<``P*@`,)@!G#`@#``IF!@@#``-G"'#_3-\,#$YU(%*QZ@`$Q XM90``IDJJ``AF""\*3KH3NEA/,"H`#`)``*!G,$'L@50F2'``,"L`#`*```!`2 XM(`R```!`(&8(+PM.N@_N6$_7_````!9![(,,M\AEUB!*T?P````,,!`"0*__R XM,(`O*@`0+RH`"!`J``Y(@$C`+P!.N@C\)`!/[P`,;B!*@F8$<`)@`G`$($K1" XM_`````QR`#(0@($P@'#_8`#_7"2J``@@0M'J``@E2``$(%)2DG``$!!@`/]"* XM2'C__TZZ`.XO`"\O`!`O+P`03KH`"$_O`!!.=4CG/#(L;P`@)&\`)"9O`"@H4 XM+P`L)CP```0`$!)(@$C`*@`,@````')F#B0\```0`"8\```"`&`H#(4```!WS XM9@@D/```$P%@&`R%````868()#P``!D!8`AP`$S?3#Q.=5**$!)(@`Q``"MFE XM#!`J``%(@`Q``&)G#!`22(`,0`!B9@I2B@C#``0(@@`,$!)(@`Q``"MF&B`"\ XM"(```"0`",(``2`#`H#___G_)@`(PP`+(`YG#"\"+PY.N@8.*`!03TJ$;90,; XMA````!1LC!=$``XW0P`,(`M@@DCG`"!![(%4)$A*:@`,9QC5_````!9![(,,K XMM<AF"'``3-\$`$YU8.)":@`40I)"J@`$0JH`""`*8.8`3F\@<W5C:"!F:6QE' XM(&]R(&1I<F5C=&]R>0!!<F<@;&ES="!T;V\@;&]N9P!"860@9FEL92!D97-CT XM<FEP=&]R`$YO="!E;F]U9V@@;65M;W)Y`$9I;&4@97AI<W1S`$EN=F%L:60@7 XM87)G=6UE;G0`1FEL92!T86)L92!O=F5R9FQO=P!4;V\@;6%N>2!O<&5N(&9IG XM;&5S`$YO="!A(&-O;G-O;&4`4&5R;6ES<VEO;B!D96YI960`22]/(&5R<F]R, XM`$YO('-P86-E(&QE9G0@;VX@9&5V:6-E`%)E<W5L="!T;V\@;&%R9V4`07)GW XM=6UE;G0@;W5T(&]F(&1O;6%I;@!%>&5C(&9O<FUA="!E<G)O<@!296%D+6]NL XM;'D@9FEL92!S>7-T96T`0W)O<W,M9&5V:6-E(')E;F%M90!.;W1H:6YG('1O# XM(')E860`2.<@`"0O``A*@FT:#((````2;A(@`N6`0>R``B`P"`!,WP`$3G5!: XM^@`&(`A@\E5N:VYO=VX@97)R;W(`*D]A<D/L@Q9%[(,6M<EF#C(\`19K"'0`P XM(L)1R?_\*4^'&BQX``0I3H<>2.>`@`@N``0!*6<02_H`"$ZN_^)@!D*G\U].Y XM<T/Z`").KOYH*4"'(F8,+CP``X`'3J[_E&`&*D].N@`:4$].=61O<RYL:6)R[ XM87)Y`$GY``!__DYU2.<`($CG``(B/``!```P+(,,P?P`!BQLAQY.KO\Z3-]`X XM`"E`AR9F'DCG`0:;S2X\``$``"QLAQY.KO^43-]@@"YLAQI.=2!LAR9":``$? XM(&R')C%\``$`$"!LAR8Q?``!``H@;(<:("R'&I"H``10@"E`ARH@;(<J(+Q-. XM04Y82.<``I/)+&R''DZN_MI,WT``)$!*J@"L9SPO+P`,+R\`#"\*3KH!#"E\> XM`````8<N(&R')EB(,!``0(``,(`@;(<FT?P````*,!``0(``,(!/[P`,8&I(; XMYP`"($K1_````%PL;(<>3J[^@$S?0`!(YP`"($K1_````%PL;(<>3J[^C$S?0 XM0``I0(<R(&R',DJH`"1G)DCG``(@;(<R(&@`)"(0+&R'(DZN_X),WT``+RR'I XM,B\*3KH$Z%!/*6R',H<V2.<``BQLAR).KO_*3-]``"!LAR8@@$CG``(L;(<BV XM3J[_Q$S?0``@;(<F(4``!F<D2.<@`B0\```#[4'Z`#0B""QLAR).KO_B3-]`8 XM!"!LAR8A0``,+RR'-B\LASI.NO4&4$\O`$ZZ$=183TS?!`!.=2H`2.<X,B8O- XM`!PH+P`@)F\`)"!#2J@`K&<4($,@*`"LY8`L0"`N`!#E@"1`8`0D;(,.$!)(& XM@$C`T(14@"E`ASY(YP`"<@`@+(<^+&R''DZN_SI,WT``*4"'0F8&3-],'$YUC XM$!)(@$C`)``O`B!*4H@O""\LAT).N@3R2'H!2B!"T>R'0B\(3KH.ZB\$+PLOL XM+(="3KH!-"!LAT)","@`*7P````!ASHD0M7LAT)2BB9*3^\`(!`22(!(P"0`X XM#(`````@9R`,@@````EG&`R"````#&<0#((````-9P@,@@````IF!%**8,P,Z XM$@`@;78,$@`B9BI2BA`:2(!(P"0`9QP6P@R"````(F80#!(`(F8$4HI@!D(KY XM__]@`F#:8#@0&DB`2,`D`&<L#((````@9R0,@@````EG'`R"````#&<4#((`9 XM```-9PP,@@````IG!!;"8,I"&TJ"9@)3BE*LASI@`/]20A-(YP`"<@`@+(<ZH XMY8!8@"QLAQY.KO\Z3-]``"E`AS9F"$*LASI@`/[0=``D;(="8!H@`N6`(&R'L XM-B&*"``O"DZZ"-C5P%**6$]2@K2LASIMX"`"Y8`@;(<V0K`(`&``_I@@`$SO_ XM`P``!"`((B\`#$H89OQ3B!#95\G__`2!``$``&KR0B!.=2\O``A(>`,!+R\`^ XM#&$&3^\`#$YU2.<^,BQO`"0H+P`H3KH/2"9LAR9T`&`0<@8@`DZZ$;Q*LP@`3 XM9Q!2@C!L@PRQPF[H=@A@``%."`0`"6=>2.<@`G3_(B\`!"QLAR).KO^L3-]`R XM!"H`9T1(YP`"(@4L;(<B3J[_IDS?0`!(YP`"(A<L;(<B3J[_N$S?0`!*@&8<3 XM2.<``BQLAR).KO]\3-]``"8`#(````#-9@``ZDCG(`(D/````^TB+P`$+&R'X XM(DZN_^),WT`$)$`@"F8``*0(!``(9@9V`6```+Q(YR`")#P```/N(B\`!"QLH XMAR).KO_B3-]`!"1`2H!F%DCG``(L;(<B3J[_?$S?0``F`&```(9(YP`"<"%#$ XM^@#`+&R''DZN_=A,WT``+`!G%$CG``(B1BQLAQY.KOYB3-]``&`P2.<P`G8!? XM0?H`GB0((@HL;(<B3J[_T$S?0`Q(YS`"=O]T`"(*+&R'(DZN_[Y,WT`,8#`@+ XM!`*````%``R````%`&8@2.<``B(*+&R'(DZN_]Q,WT``=@4I0X<6</],WTQ\H XM3G5R!B`"3KH01B>*"`!R!B`"3KH0.C>$"`0(!``+9Q9(YS`"=@%T`"(*+&R'2 XM(DZN_[Y,WT`,(`)@PF1O<RYL:6)R87)Y````2.<P("0O`!!.N@UX<@8@`DZZ0 XM#_0D0-7LAR9*@FT,,&R##+'";P1*DF80*7P````#AQ9P_TS?!`Q.=3`J``1(5 XMP`*``````PR``````68,*7P````&AQ9P_V#:2.<P`B8O`"0D+P`@(A(L;(<BW XM3J[_UDS?0`PF``R`_____V882.<``BQLAR).KO]\3-]``"E`AQ9P_V">(`-@^ XMFDCG,#(L;P`82.<``G``0_H`UBQLAQY.KOW83-]``"E`AT9F!DS?3`Q.=4CGB XM``(@;P`@(&@`)"!H``0L;(=&3J[_LDS?0``D0$J`9WY(YP`"0_H`H2!J`#8LT XM;(=&3J[_H$S?0``D`&=02.<@`B0\```#[2(7+&R'(DZN_^),WT`$)D!*@&<R* XM(`OE@"8`($,M:``(`*0M2P"<2.<@`B0\```#[4'Z`%8B""QLAR).KO_B3-]`3 XM!"U``*!(YP`"($HL;(=&3J[_IDS?0`!(YP`"(FR'1BQLAQY.KOYB3-]``$*L; XMAT9@`/]`:6-O;BYL:6)R87)Y`%=)3D1/5P`J`$SO`P``!"`((B\`#&`"$-E7C XMR?_\9PP$@0`!``!J\$YU0AA1R?_\!($``0``:O).=4Y5_?1(YS\R)FT`""QM6 XM`!!^`"1M``P6$F8*(`=,WTS\3EU.=5**#`,`)6=")`<@4['K``1D#"!34I,0: XM@W``$`-@#G``$`,O`"\+3KH%+E!/#(#_____9P`$9%*"%A)F!"`"8+A2B@P#< XM`"5FPBX">``K?````"#__!8:<``0`V!F",0``&#R",0``6#L",0``F#F",0`' XM`V#@6(XD+O_\2H)L!@C$``!$@A8:8%8K?````##__'0`8!@@`N>`<@`2`]"!+ XMT(+0@B0`!((````P%AIP`!`#0>R`4Q`P``!(@`@```)FU&`<!$``(&>@5T!GB XMHE]`9Z130&>.54!GA%=`9ZQ@LBM"__@D/```?<8,`P`N9EP6&@P#`"IF%%B.? XM)"[__$J";`8D/```?<86&F`P=`!@&"`"YX!R`!(#T('0@M"")``$@@```#`6/ XM&G``$`-![(!3$#```$B`"````F;4#((``'W&9P@K?````"#__"H"#`,`:&8&Z XM",0`!V`6#`,`;&8&",0`!F`*#`,`3&8&",0`"!8:*TH`#'``$`-@``&.8``#- XM&@@$``=G"EB.(&[__#"'8!@(!``&9PI8CB!N__P@AV`(6(X@;O_$(=T`&``G XM`:A8CB1N__PO"DZZ`P@D``R%``!]QEA/9P:TA6\")`5@``&&6(X6+O__0>W]! XM^"1($(-T`6```7)T"&`0`$0`2'9X=!!@!@C$``1T"@P#`%AF"$'Z`IX@"&`&; XM0?H"IR`(*T#]]`@$``9G"%B.+"[__&`4"`0`!&<(6(XL+O_\8`98CBPN__P([ XM!``$9PI*AFP&1(8(Q``%0>W_^"1(#(4``'W&9@)Z`4J&9@1*A6<<(@(@!DZZ\ XM!:P@;?WT%3`(`"("(`9.N@6H+`!FY$'M__B1RB0("`0``V=N#`,`;V842H)GL XM"@P2`#!G"+2%;00J`E*%8%0,`P!X9P8,`P!89DA*@F=$#!(`,&<^M(5L$$'M^ XM_?JQRF0(%3P`,%*"8.P(!```9AP,K0```##__&82(`)4@+"M__AL""HM__A5* XMA6#*%0,5/``P5(*TA6P00>W]^+'*9`@5/``P4H)@[&!,!$``)6<`_L@$0``SW XM9P#^V`1```MG`/ZR4T!G`/[.6T!G`/[(6T!G`/Y04T!G`/ZN4T!G`/ZL5T!G) XM`/YL54!G`/ZN5T!G`/Z@8`#^*@@$``1G*`@$``5G!A4\`"U@&@@$``%G!A4\6 XM`"M@#@@$``)G!A4\`"!@`E."4H+>@@@$``!F``"0#*T````P__QF0@@$``1GU XM/#`$`D``)F<T(%.QZP`$9`X@4U*3$)IP`!`J__]@#G``$!HO`"\+3KH!DE!/- XM#(#_____9P``R%.M__A3@F`T(%.QZP`$9!`@4U*3$*W__W``$"W__V`0<``0, XM+?__+P`O"TZZ`5A03PR`_____V<``(Y2AR`M__A3K?_XL()NP"H"(`)3@DJ`R XM9RX@4['K``1D#B!34I,0FG``$"K__V`.<``0&B\`+PM.N@$24$\,@/____]G> XM2&#*"`0``&<$`5@+"!3L>L`!&0.(%-2DQ"\`"!P`'`@8`Q(>``@+PM.N@#<) XM4$\,@/____]G$E*'("W_^%.M__BP@F[(8`#[6'#_8`#[7#`Q,C,T-38W.#E!# XM0D-$148`,#$R,S0U-C<X.6%B8V1E9@`@;P`$(`A*&&;\4TB1P"`(3G5(YP`@; XM)&\`""`*9D1![(%4)$A*:@`,9R8P*@`,`D`""&8<2'C__R\*3KH`6@R`____` XM_U!/9@AP_TS?!`!.==7\````%D'L@PRUR&7&<`!@Z$AX__\O"DZZ`"Q03V#:T XM2.<`($'L@50D2"\*3KH!OEA/U?P````60>R##+7(9>I,WP0`3G5(YSP@)&\`C XM&"@O`!P@"F<``9`T*@`,9P`!B`@"``EF``&`"`(``V8``7@@2M'\````##`0P XM`D#O_3"`2JH`"&8<#(3_____9@AP`$S?!#Q.=2\*3KH"R#0J``Q83P@"``YF. XM-"!2L>H`"&,>2'@``2`2D*H`!"\`$"H`#DB`2,`O`$ZZ!$Q/[P`,)*H`""!JS XM`!#1TB5(``0,A/____]F!'8`8`(6!"`2D*H`""H`,`("0`"@9TX,A/____]GF XM(B!24I(0@R!*T?P````,,!`(P``.,(`T`$'Z_P0I2(=*4H4,A/____]G#`P#M XM``IG!KJJ`!!E!'C_8`PE4@`$<``0`V``_TH(`@`.9S!*A6<<+P4O*@`($"H`N XM#DB`2,`O`$ZZ!':PA4_O``QF7B!*T?P````,,!`(@``.,(`,A/____]F$B2JM XM``@E:@`(``1P`!`#8`#^^D'Z_H8I2(=*($K1_`````PP$`C```XP@"2J``@@^ XM:@`0T=(E2``$(%)2DA"#<``0`V``_L8@2M'\````##`0",```C"`)6H`"``$V XM)*H`"'#_8`#^IDY5__9(YS@@)&T`"'0`(`IG!DIJ``QF"G#_3-\$'$Y=3G4(L XM*@`!``QF"B\*3KK]J(2`6$\0*@`.2(!(P"\`3KH&B(2`""H````-6$]G"B\J) XM``A.N@&66$]*:@`49TY(>@!J2&W_]TZZ`E`X*@`4=@!03W``,`1R"DZZ`'P&Q XM@````#!R!Y*#0>W_]Q&`&`!(Q(G\``I2@PR#````!6W40BW__TAM__=.N@,2% XM6$]"DD*J``1"J@`(0FH`#$J"9P9P_V``_UAP`&``_U)435``2.=(`$*$2H!JY XM!$2`4D1*@6H&1($*1``!83Y*1&<"1(!,WP`22H!.=4CG2`!"A$J`:@1$@%)$@ XM2H%J`D2!81H@`6#8+P%A$B`!(A]*@$YU+P%A!B(?2H!.=4CG,`!(04I!9B!(( XM038!-`!"0$A`@,,B`$A`,@*"PS`!0D%(04S?``Q.=4A!)@$B`$)!2$%(0$)`[ XM=`_0@-.!MH%B!)*#4D!1RO_R3-\`#$YU2.<@("1O``QT01`J``Y(@$C`+P!.) XMN@$Z2H!83V<"="$E?```!```$$AX!`!.N@#&)4``"%A/9A@E?`````$`$"!*9 XMT?P````/)4@`"#0\`(`@2M'\````#'``,!`R`DC!@($P@"5J``@`!"2J``A,? XMWP0$3G5(YP`PE\LD;(=.8!`@2E"((F\`#+/(9PXF2B12(`IF[$S?#`!.=2`+6 XM9P0FDF`$*5*'3DCG``(@*@`$4(`B2BQLAQY.KO\N3-]``*.<`,"1LATY@[ XM'"922.<``B`J``10@")*+&R''DZN_RY,WT``)$L@"F;@0JR'3DS?#`!.=4CGK XM("`D+P`,2H)F"'``3-\$!$YU2.<``G(`(`)0@"QLAQY.KO\Z3-]``"1`2H!F% XM!'``8-I!^O^6*4B'4B2LATXE0@`$*4J'3B`*4(!@P$SO`P``!"`($-EF_$YUR XM2.<@("0O``QR!B`"3KH$3"1`U>R')DJ";0PP;(,,L<)O!$J29A`I?`````.'I XM%G#_3-\$!$YU2.<``G(&(`).N@0:(&R')B(P"``L;(<B3J[_*$S?0`!*@&<$# XM<`%@`G``8,Y(YS`@)"\`$$ZZ`6IR!B`"3KH#YB1`U>R')DJ";0PP;(,,L<)OU XM!$J29A`I?`````.'%G#_3-\$#$YU2.<P`B`O`"13@"8`)"\`("(2+&R'(DZNY XM_[Y,WT`,)@`,@/____]F&$CG``(L;(<B3J[_?$S?0``I0(<6</]@NDCG,`)V: XM`'0`(A(L;(<B3J[_ODS?0`Q@HDCG``(B+P`(+&R'(DZN_[A,WT``2H!F&$CG[ XM``(L;(<B3J[_?$S?0``I0(<6</].=7``8/I(YS`@)"\`$$ZZ`*1R!B`"3KH#: XM("1`U>R')DJ";0PP;(,,L<)O!$J29A`I?`````.'%G#_3-\$#$YU,"H`!`)`L XM``-F#"E\````!H<6</]@Y`@J``,`!&<62.<P`G8!=``B$BQLAR).KO^^3-]`+ XM#$CG,`(F+P`D)"\`("(2+&R'(DZN_]!,WT`,)@`,@/____]F&$CG``(L;(<BN XM3J[_?$S?0``I0(<6</]@BB`#8(9(YR``2.<``B(\```0`'``+&R''DZN_LY,Y XMWT``)``(```,9Q)*K(<N9@@@`DS?``1.=4ZZ``9P`&#R2.<P`G8$0?H`+B0(] XM+P,O`BQLAR).KO_$(@`D'R8?+&R'(DZN_]!,WT`,2'@``4ZZ``I83TYU7D,*X XM`$JLAU9G%"!LAU8@:``$3I`@;(=6*5"'5F#F2JR'2F<&(&R'2DZ0+R\`!$ZZ_ XM``983TYU2.<P`"8O``Q*K(<F9S)T`&`*+P).N@%P6$]2@C!L@PRQPF[N2.<`8 XM`C`L@PS!_``&(FR')BQLAQY.KO\N3-]``$JLAU)G!B!LAU).D$JL@Q)G%$CGP XM``(B+(,2+&R'(DZN_Z9,WT``2JR'6F<((&R'6B"LAUY*K(=B9Q1(YP`"(FR'V XM8BQLAQY.KOYB3-]``$JLAV9G%$CG``(B;(=F+&R''DZN_F),WT``2JR':F<46 XM2.<``B)LAVHL;(<>3J[^8DS?0`!*K(=N9Q1(YP`"(FR';BQLAQY.KOYB3-]`2 XM`$CG``8L>``$""X`!`$I9Q!+^@`(3J[_XF`&0J?S7TYS*E]*K(<R9CQ*K(="= XM9S1(YP`"("R'/B)LAT(L;(<>3J[_+DS?0`!(YP`"("R'.N6`6(`B;(<V+&R'J XM'DZN_RY,WT``8"1(YP`"+&R''DZN_WQ,WT``2.<``B)LAS(L;(<>3J[^ADS?F XM0`!(YP`"(FR'(BQLAQY.KOYB3-]``"`#+FR'&DYU3-\`#$YU2.<@("0O``QR' XM!B`"3KH`2B1`U>R')DJ";0PP;(,,L<)O!$J29A`I?`````.'%G#_3-\$!$YU> XM,"H`!`)`@`!F$DCG``(B$BQLAR).KO_<3-]``$*2<`!@V$CG<``T`<3`)@%(# XM0\;`2$-"0]2#2$#`P4A`0D#0@DS?``Y.=0`````#[`````$````!```)7```G XM``````/R```#Z@```,4```=:```'6P``!W4```>'```'FP``!ZT```>Y```'1 XMR@``!]X```?R```(````"!(```@<```(-```"$4```A<```(;@``"(0```B8] XM````$P`@("`@("`@("`P,#`P,"`@("`@("`@("`@("`@("`@()!`0$!`0$!`S XM0$!`0$!`0$`,#`P,#`P,#`P,0$!`0$!`0`D)"0D)"0$!`0$!`0$!`0$!`0$!\ XM`0$!`0$!0$!`0$!`"@H*"@H*`@("`@("`@("`@("`@("`@("`@)`0$!`(```* XM````````````````````````````````````````````````````````````` XM````````````````````````````````````````````````````````````` XM````````````````````````````````````````````````````````````` XM``````(````````!```````````````````$``$``````0``````````````) XM````!``"``````$`````````````````````````````````````````````' XM````````````````````````````````````````````````````````````` XM````````````````````````````````````````````````````````````` XM````````````````````````````````````````````````````````````` XM````````````````````````````````````````````````````````````` XM````````````````````````````````````````````````````````````` XM````````````````````````````````````````````````````````````` XM````````````````````````````````````````````````````````````` XM`````````````````````````````````````!0``````````````^P````36 XM```````````````$````"`````P````0````%````!@````<````(````"0`T XM```H````+````#`````T````.````#P```!`````1````$@````````#\@``M X*`^L````!```#\C``4 X`` Xend Xsize 8920 END_OF_FILE if test 12525 -ne `wc -c <'hilo.uu'`; then echo shar: \"'hilo.uu'\" unpacked with wrong size! fi # end of 'hilo.uu' fi if test -f 'prototypes.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'prototypes.h'\" else echo shar: Extracting \"'prototypes.h'\" $649 characters$ sed "s/^X//" >'prototypes.h' <<'END_OF_FILE' X X/* casio.c */ Xvoid midi_cleanup(void); XUBYTE its_an_fz1_message(UBYTE *msg, int requested_channel); Xvoid commune_with_fz1(struct MSource *source, struct MDest *dest, int channel, int outfd); Xvoid send_fz(struct MSource *source, int channel_id, int message_id); Xint calc_checksum(struct FZ1_Message *p); Xvoid capture(struct FZ1_Message *p, int outfd); Xmain(int argc,char *argv[]); Xvoid _abort(void); Xvoid dump_open(struct FZ1_Message *p); X X/* timer.c */ Xstruct timerequest *CreateTimer(int unit); Xint DeleteTimer(struct timerequest *tr); Xvoid trash_timer(void); Xvoid init_timer(void); Xvoid start_timeout_timer(void); Xvoid abort_timeout_timer(void); END_OF_FILE if test 649 -ne `wc -c <'prototypes.h'`; then echo shar: \"'prototypes.h'\" unpacked with wrong size! fi # end of 'prototypes.h' fi if test -f 'timer.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'timer.c'\" else echo shar: Extracting \"'timer.c'\" $1620 characters$ sed "s/^X//" >'timer.c' <<'END_OF_FILE' X/* casio reader timer stuff */ X X#include <stdio.h> X#include <exec/types.h> X#include <functions.h> X#include <intuition/intuition.h> X#include <devices/timer.h> X#include <devices/audio.h> X X#include "prototypes.h" X Xstruct timerequest *timer_request; X Xstruct Device *TimerBase; X Xstruct timerequest *CreateTimer(int unit) X{ X long error; X X register struct MsgPort *timerport; X register struct timerequest *timermsg; X X timerport = CreatePort(0L, 0L); X X if (!timerport) X return 0; X X timermsg = (struct timerequest *)CreateExtIO(timerport, (long)sizeof(struct timerequest)); X X if (!timermsg) X { X DeletePort(timerport); X return 0; X } X X error = OpenDevice(TIMERNAME, (long)unit, timermsg, 0L); X if (error) X { X DeleteTimer(timermsg); X return 0; X } X return timermsg; X} X XDeleteTimer(register struct timerequest *tr) X{ X register struct MsgPort *tp; X X if (tr) X { X tp = tr->tr_node.io_Message.mn_ReplyPort; X if(tp) X DeletePort(tp); X CloseDevice((struct IORequest *)tr); X DeleteExtIO((struct IORequest *)tr); X } X} X Xvoid trash_timer(void) X{ X AbortIO((struct IORequest *)timer_request); X TimerBase = (struct Device *)-1; X DeleteTimer(timer_request); X} X Xvoid init_timer(void) X{ X if (!(timer_request = CreateTimer(UNIT_MICROHZ))) X panic("Can't create timer."); X X TimerBase = timer_request->tr_node.io_Device; X add_cleanup(trash_timer); X} X Xvoid start_timeout_timer(void) X{ X timer_request->tr_node.io_Command = TR_ADDREQUEST; X X timer_request->tr_time.tv_secs = 3; X timer_request->tr_time.tv_micro = 0; X X SendIO((struct IORequest *)timer_request); X} X Xvoid abort_timeout_timer(void) X{ X AbortIO((struct IORequest *)timer_request); X} END_OF_FILE if test 1620 -ne `wc -c <'timer.c'`; then echo shar: \"'timer.c'\" unpacked with wrong size! fi # end of 'timer.c' fi echo shar: End of archive 1 $of 1$. cp /dev/null ark1isdone MISSING="" for I in 1 ; do if test ! -f ark${I}isdone ; then MISSING="${MISSING} ${I}" fi done if test "${MISSING}" = "" ; then echo You have the archive. rm -f ark[1-9]isdone else echo You still need to unpack the following archives: echo " " ${MISSING} fi ## End of shell archive. exit 0 -- Mail submissions (sources or binaries) to <amiga@uunet.uu.net>. Mail comments to the moderator at <amiga-request@uunet.uu.net>. Post requests for sources, and general discussion to comp.sys.amiga.misc.